home *** CD-ROM | disk | FTP | other *** search
/ Maclife 13 / MACLIFE13-No-93-1996.ISO.7z / MACLIFE13-No-93.ISO / Selection / LinoColor4.0Jデモ / LinoColor 4.0 / LinoColor / LinoColor.rsrc / LSTR_6129_Elliptical < prev    next >
Text File  |  1995-10-12  |  1KB  |  35 lines
  1. { (LinoF2) (Elliptical) pop pop
  2.         % Lino_s1 1.176470588       %    3      2      1       0     index
  3.         2 copy exch abs exch abs    % Lino_x Lino_y Lino_ax Lino_ay
  4.         1 index 1.176470588 mul 1 index add 1 le  {    % Lino_ax Lino_ay
  5.             exch 1.176470588 mul 180 mul cos    % Lino_ax
  6.             exch 180 mul cos add    % Lino_ay
  7.             0.25 mul 0.5 add exch pop exch pop
  8.         } {
  9.             1 index 1.176470588 mul    % Lino_ax
  10.             1 index add 1.176470588 le {    % Lino_ay
  11.                 1 index 1.176470588 mul 0.9 lt {    % Lino_ax
  12.                     2 index 0 lt {    % lino_y
  13.                         exch 1.176470588 mul add    % Lino_ax Lino_ay
  14.                         -0.01 mul 0.03 add
  15.                     } {
  16.                         exch 1.176470588 mul add    % Lino_ax Lino_ay
  17.                         -0.01 mul 0.02 add
  18.                     } ifelse
  19.                 } {
  20.                     3 index 0 lt {    % Lino_x
  21.                         exch 1.176470588 mul add    % Lino_ax Lino_ay
  22.                         -0.01 mul 0.01 add
  23.                     } {
  24.                         exch 1.176470588 mul add    % Lino_ax Lino_ay
  25.                         -0.01 mul
  26.                     } ifelse
  27.                 } ifelse
  28.                 exch pop exch pop
  29.             } {
  30.                 1 2 index sub 1.176470588 mul 180 mul cos    % Lino_ax
  31.                 1 2 index sub 180 mul cos add    % Lino_ay
  32.                 -0.25 mul 0.5 sub 5 1 roll pop pop pop pop
  33.             }ifelse
  34.         }ifelse
  35.     } bind